home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Devices / Timer.asm < prev   
Assembly Source File  |  1990-07-03  |  666b  |  40 lines
  1.  
  2. *
  3. *    Timer.asm
  4. *    of PCQ Pascal (c) 1990 Patrick Quaid
  5. *
  6. *    Makes the actual calls to the timer.device.  Note that TimerBase
  7. *    must have been set up previously, either by a call to CreateTimer
  8. *    or by pulling the device pointer from a valid TimerRequest.
  9. *
  10.  
  11.     SECTION    PCQ_Runtime,CODE
  12.  
  13.     XREF    _TimerBase
  14.     XREF    _LVOAddTime
  15.     XREF    _LVOCmpTime
  16.     XREF    _LVOSubTime
  17.  
  18.     XDEF    _AddTime
  19. _AddTime
  20.     move.l    8(sp),a0
  21.     move.l    4(sp),a1
  22.     move.l    _TimerBase,a6
  23.     jmp    _LVOAddTime(a6)
  24.  
  25.     XDEF    _CmpTime
  26. _CmpTime
  27.     move.l    8(sp),a0
  28.     move.l    4(sp),a1
  29.     move.l    _TimerBase,a6
  30.     jmp    _LVOAddTime(a6)
  31.  
  32.     XDEF    _SubTime
  33. _SubTime
  34.     move.l    8(sp),a0
  35.     move.l    4(sp),a1
  36.     move.l    _TimerBase,a6
  37.     jmp    _LVOSubTime(a6)
  38.  
  39.     END
  40.